module Main where

import Control.Monad
import Control.Concurrent
import Control.Concurrent.Async

import Network.Socket
import Text.Printf

import qualified Data.ByteString.Lazy.Char8 as BL


main = withSocketsDo $ do
  sock <- tcpSocket
  
